home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / pcmagazi / 1989 / 11 / color.bas < prev    next >
BASIC Source File  |  1989-03-09  |  7KB  |  97 lines
  1. 100 REM - BASIC PROGRAM TO CREATE COLOR.EXE   
  2. 110 CLS:PRINT "Creating COLOR.EXE   ": OPEN "COLOR.EXE   " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO    78
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    78 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "COLOR.EXE    created successfully": SYSTEM
  17. 260 PRINT: PRINT "COLOR.EXE    is not valid!": END
  18. 270 DATA 4D, 5A, D7,  0,  3,  0,  0,  0,  4,  0,  0,  0, FF, FF,  0,  0,   383
  19. 280 DATA B6,  0,  0,  0,  0,  0,  0,  0, 40,  0,  0,  0,  0,  0,  0,  0,    F6
  20. 290 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  21. 300 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 80,  0,  0,  0,    80
  22. 310 DATA  E, 1F, BA,  E,  0, B4,  9, CD, 21, B8,  1, 4C, CD, 21, 54, 68,   54F
  23. 320 DATA 69, 73, 20, 70, 72, 6F, 67, 72, 61, 6D, 20, 63, 61, 6E, 6E, 6F,   623
  24. 330 DATA 74, 20, 72, 75, 6E, 20, 69, 6E, 20, 44, 4F, 53, 20, 6D, 6F, 64,   546
  25. 340 DATA 65, 2E,  D,  D,  A, 24,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,    DB
  26. 350 DATA 4E, 45,  5,  1, 85,  0,  2,  0, F6, 22, A3, F5,  A,  0,  1,  0,   3DB
  27. 360 DATA  0,  0,  0, 10,  0,  0,  2,  0,  0,  0,  1,  0,  2,  0,  2,  0,    17
  28. 370 DATA  D,  0, 40,  0, 50,  0, 50,  0, 59,  0, 5D,  0,  7,  1,  0,  0,   1AB
  29. 380 DATA  0,  0,  9,  0,  0,  0,  1,  0,  0,  0,  0,  0,  0,  0,  0,  0,     A
  30. 390 DATA  1,  0, 7F,  0,  1,  C, 7F,  0,  2,  0, B5,  0,  0,  D, B5,  0,   285
  31. 400 DATA  5, 43, 4F, 4C, 4F, 52,  0,  0,  0,  1,  0,  A,  0,  0,  8, 44,   1DB
  32. 410 DATA 4F, 53, 43, 41, 4C, 4C, 53,  8, 56, 49, 4F, 43, 41, 4C, 4C, 53,   476
  33. 420 DATA  9, 56, 49, 4F, 57, 52, 54, 54, 54, 59,  A, 56, 49, 4F, 53, 45,   485
  34. 430 DATA 54, 41, 4E, 53, 49,  0,  0,  9, 43, 4F, 4C, 4F, 52, 2E, 45, 58,   3D2
  35. 440 DATA 45,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,    45
  36. 450 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  37. 460 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  38. 470 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  39. 480 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  40. 490 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  41. 500 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  42. 510 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  43. 520 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  44. 530 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  45. 540 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  46. 550 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  47. 560 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  48. 570 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  49. 580 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  50. 590 DATA 55, 73, 61, 67, 65, 3A, 20, 43, 4F, 4C, 4F, 52, 20, 66, 62,  D,   4C3
  51. 600 DATA  A, 49, 6E, 76, 61, 6C, 69, 64, 20, 63, 6F, 6C, 6F, 72, 20, 49,   579
  52. 610 DATA 44,  D,  A, 1B, 5B, 30, 3B,  0,  0,  0,  0,  0,  0,  0,  0,  4,   140
  53. 620 DATA  0, 58, 42, 47, 43, 52, 4D, 59, 57, 78, 62, 67, 63, 72, 6D, 79,   56F
  54. 630 DATA 77, 33, 37, 3B, 20, 33, 33, 3B, 20, 33, 35, 3B, 20, 33, 31, 3B,   35F
  55. 640 DATA 20, 33, 36, 3B, 20, 33, 32, 3B, 20, 33, 34, 3B, 20, 33, 30, 3B,   304
  56. 650 DATA 34, 37, 6D, 20, 34, 33, 6D, 20, 34, 35, 6D, 20, 34, 31, 6D, 20,   3D4
  57. 660 DATA 34, 36, 6D, 20, 34, 32, 6D, 20, 34, 34, 6D, 20, 34, 30, 6D,  0,   3B0
  58. 670 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  59. 680 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  60. 690 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  61. 700 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  62. 710 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  63. 720 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  64. 730 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  65. 740 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  66. 750 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  67. 760 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  68. 770 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  69. 780 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  70. 790 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  71. 800 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  72. 810 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  73. 820 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  74. 830 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  75. 840 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  76. 850 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  77. 860 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  78. 870 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  79. 880 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  80. 890 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  81. 900 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  82. 910 DATA 8E, C0, 8B, FB, FC, 32, C0, F2, AE, 26, 80, 3D, 20, 75,  3, 47,   824
  83. 920 DATA EB, F7, 26, 8A,  5,  A, C0, 75, 16, 1E, 68,  0,  0, 6A, 11, 6A,   557
  84. 930 DATA  0, 9A, FF, FF,  0,  0, 6A,  1, 6A,  1, 9A, FF, FF,  0,  0, 26,   62C
  85. 940 DATA 8A, 65,  1,  A, E4, 74, E2, BB, FF, FF, 8E, C3, BF, 31,  0, B9,   8E7
  86. 950 DATA 10,  0, F2, AE, 74,  8, 1E, 68, 11,  0, 6A, 12, EB, D1, 83, F9,   677
  87. 960 DATA  8, 72, 12, 83, E9,  8, C6,  6, 27,  0, 31, C6,  6, 28,  0, 3B,   453
  88. 970 DATA 83,  6, 2F,  0,  2, BE, 41,  0, E8, 33,  0, 86, E0, BF, 39,  0,   532
  89. 980 DATA B9,  8,  0, F2, AE, 75, CF, BE, 60,  0, E8, 21,  0, 6A,  1, 6A,   6A1
  90. 990 DATA  0, 9A, FF, FF,  0,  0, 1E, 68, 23,  0, FF, 36, 2F,  0, 6A,  0,   50F
  91. 1000 DATA 9A, 22,  0,  0,  0, 6A,  1, 6A,  0, 9A, 2B,  0,  0,  0, C1, E1,   3F8
  92. 1010 DATA  2,  3, F1, BF, 23,  0,  3, 3E, 2F,  0, B9,  3,  0, F3, A4, 83,   51E
  93. 1020 DATA  6, 2F,  0,  3, C3,  4,  0,  2,  0, 38,  0,  1,  0,  0,  0,  3,   13D
  94. 1030 DATA  1, 9A,  0,  1,  0,  5,  0,  3,  2, 91,  0,  2,  0, 13,  0,  3,   14F
  95. 1040 DATA  2, 82,  0,  2,  0, 1D,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,    A3
  96. 1050 DATA 37110
  97.